/* awebjfif.awebrx - Install or uninstall the AWeb JFIF plugin */ options results if left(address(),5)~="AWEB." then do ports=show("P") parse var ports dummy "AWEB." portnr . if portnr="" then do address command "run AWeb3:AWeb-II" address command "WaitForPort AWEB.1" portnr=1 end address value "AWEB."portnr 'get activeport' address value result end parse arg args parse source dummy1 dummy2 called . i=lastpos(called,'/') if i==0 then i=lastpos(called,':') if i>0 then path=left(called,i) else path='' if args='' then do if ~open(tf,"T:awebjfifsetup.html","W") then exit call writeln tf,"AWeb JFIF Setup" call writeln tf,"

AWeb JFIF Setup

" if exists("AWebPath:awebplugin/awebjfif.awebplugin") then do installed=0 progress=4 dither=2 grayscale=0 maxmem=1024 lowpri=0 'getcfg MIME stem m' do i=1 to m.0 if upper(left(m.i.value,11))="IMAGE/JPEG;" then do parse var m.i.value type ";" ext ";" action ";" file ";" args if action='A' & upper(right(file,19))="AWEBJFIF.AWEBPLUGIN" then do installed=1 j=index(upper(args),"PROGRESS=") if j>0 then do progress=substr(args,j+9) j=verify(progress,"0123456789") if j>0 then progress=left(progress,j-1) end j=index(upper(args),"DITHER=") if j>0 then dither=substr(args,j+7,1) grayscale=(index(upper(args),"GRAYSCALE")>0) j=index(upper(args),"MAXMEM=") if j>0 then do maxmem=substr(args,j+7) j=verify(maxmem,"0123456789") if j>0 then maxmem=left(maxmem,j-1) end lowpri=(index(upper(args),"LOWPRI")>0) end leave end end call writeln tf,"
" call writeln tf,"
" call writeln tf,"This form configures AWeb-II to use the AWeb JFIF plugin." call writeln tf,"" call writeln tf,"
  1. Select the required modes of operation " call writeln tf,"(see documentation for details)" call writeln tf,"

    • Progressive display:
      " call writeln tf," No progressive display (fastest)
      " call writeln tf," Standard progressive display
      " call writeln tf," Smooth progressive display (slowest)
      " call writeln tf,"

    • Dither mode. This will only take effect on screens with 256 colours or less.
      " call writeln tf," No dithering (fast but low quality)
      " call writeln tf," Ordered (medium quality, medium speed)
      " call writeln tf," Floyd-Steinberg (good quality but slower)
      " call writeln tf,"

    • 0 then call writeln tf," checked" call writeln tf,"> Grayscale images" call writeln tf,"

    • Maximum scratch memory usage per image during the decoding process." call writeln tf,"If more memory is needed, a virtual memory system will be used.
      " call writeln tf," kB" call writeln tf,"

    • Multitasking:
      " call writeln tf," Run decoder at low priority
      " call writeln tf,"
    " call writeln tf,"

  2. Save the new settings" call writeln tf,"

  3. " call writeln tf,"
" if installed>0 then do call writeln tf,"

" call writeln tf,"
" call writeln tf,"" call writeln tf,"This form will deinstall the AWeb JFIF plugin and reset the default (datatypes) decoder for JFIF images." call writeln tf,"
  1. Save the new settings" call writeln tf,"

  2. " call writeln tf,"
" end end else do call writeln tf,"Plugin file not found. You have to run the install script first." end call writeln tf,"

Back to documentation" call close tf 'open "file:///T:awebjfifsetup.html" reload' 'wait "file:///T:awebjfifsetup.html"' 'allowcmd' address command 'delete T:awebjfifsetup.html quiet' end else do ext="jpg jpeg jfif" rest=";" 'getcfg MIME stem m' do i=1 to m.0 if upper(left(m.i.value,11))="IMAGE/JPEG;" then do parse var m.i.value type ";" ext ";" action ";" rest leave end end if upper(left(args,9))="DEINSTALL" then do mime="IMAGE/JPEG;"ext";;"rest end else do progress="" defprogress="4" dither="2" grayscale="" maxmem="1024" lowpri="" save="" do while args~="" parse var args nextarg args interpret nextarg end if progress="" then progress=defprogress mime="IMAGE/JPEG;"ext";A;AWebPath:awebplugin/awebjfif.awebplugin;PROGRESS="progress" DITHER="dither" "grayscale" MAXMEM="maxmem lowpri end 'setcfg MIME "'mime'" ADD' if upper(save)="YES" then do 'savesettings' end 'open "file:///AWebPath:awebplugin/docs/awebjfif.html"' end exit